﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class ServidoresFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As ServidoresBE
        Dim tmpServidores As ServidoresBE = New ServidoresBE()
        Try
            With tmpServidores
                .Id = convertDTFromDb.ConvertShort(dr.Item("Id"))
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .Servidor = convertDTFromDb.ConvertString(dr.Item("Servidor"))
                End With
            Return tmpServidores
        Catch ex As Exception
            Throw
        Finally
            tmpServidores = Nothing
        End Try
    End Function
End Class
